home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / PInterfaces / Script.p < prev    next >
Encoding:
Text File  |  1998-08-17  |  49.7 KB  |  1,087 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Script.p
  3.  
  4.      Contains:    Script Manager interfaces
  5.  
  6.      Version:    Technology:    System 7.5+
  7.                  Release:    Universal Interfaces 3.2
  8.  
  9.      Copyright:    © 1986-1998 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        For bug reports, consult the following page on
  12.                  the World Wide Web:
  13.  
  14.                      http://developer.apple.com/bugreporter/
  15.  
  16. }
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT Script;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __SCRIPT__}
  27. {$SETC __SCRIPT__ := 1}
  28.  
  29. {$I+}
  30. {$SETC ScriptIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33. {$IFC UNDEFINED __MACTYPES__}
  34. {$I MacTypes.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED __QUICKDRAW__}
  37. {$I Quickdraw.p}
  38. {$ENDC}
  39. {$IFC UNDEFINED __INTLRESOURCES__}
  40. {$I IntlResources.p}
  41. {$ENDC}
  42. {$IFC UNDEFINED __EVENTS__}
  43. {$I Events.p}
  44. {$ENDC}
  45.  
  46.  
  47. {$PUSH}
  48. {$ALIGN MAC68K}
  49. {$LibExport+}
  50.  
  51. {  Meta script codes: }
  52.  
  53. CONST
  54.     smSystemScript                = -1;                            {  designates system script. }
  55.     smCurrentScript                = -2;                            {  designates current font script. }
  56.     smAllScripts                = -3;                            {  designates any script }
  57.  
  58. {
  59.    Script codes:
  60.    These specify a Mac OS encoding that is related to a FOND ID range.
  61.    Some of the encodings have several variants (e.g. for different localized systems)
  62.     which all share the same script code.
  63.    Not all of these script codes are currently supported by Apple software.
  64.    Notes:
  65.    - Script code 0 (smRoman) is also used (instead of smGreek) for the Greek encoding
  66.      in the Greek localized system.
  67.    - Script code 28 (smEthiopic) is also used for the Inuit encoding in the Inuktitut
  68.      system.
  69. }
  70.     smRoman                        = 0;
  71.     smJapanese                    = 1;
  72.     smTradChinese                = 2;                            {  Traditional Chinese }
  73.     smKorean                    = 3;
  74.     smArabic                    = 4;
  75.     smHebrew                    = 5;
  76.     smGreek                        = 6;
  77.     smCyrillic                    = 7;
  78.     smRSymbol                    = 8;                            {  Right-left symbol }
  79.     smDevanagari                = 9;
  80.     smGurmukhi                    = 10;
  81.     smGujarati                    = 11;
  82.     smOriya                        = 12;
  83.     smBengali                    = 13;
  84.     smTamil                        = 14;
  85.     smTelugu                    = 15;
  86.     smKannada                    = 16;                            {  Kannada/Kanarese }
  87.     smMalayalam                    = 17;
  88.     smSinhalese                    = 18;
  89.     smBurmese                    = 19;
  90.     smKhmer                        = 20;                            {  Khmer/Cambodian }
  91.     smThai                        = 21;
  92.     smLao                        = 22;
  93.     smGeorgian                    = 23;
  94.     smArmenian                    = 24;
  95.     smSimpChinese                = 25;                            {  Simplified Chinese }
  96.     smTibetan                    = 26;
  97.     smMongolian                    = 27;
  98.     smEthiopic                    = 28;
  99.     smGeez                        = 28;                            {  Synonym for smEthiopic }
  100.     smCentralEuroRoman            = 29;                            {  For Czech, Slovak, Polish, Hungarian, Baltic langs }
  101.     smVietnamese                = 30;
  102.     smExtArabic                    = 31;                            {  extended Arabic }
  103.     smUninterp                    = 32;                            {  uninterpreted symbols, e.g. palette symbols }
  104.  
  105. {  Obsolete script code names (kept for backward compatibility): }
  106.     smChinese                    = 2;                            {  (Use smTradChinese or smSimpChinese) }
  107.     smRussian                    = 7;                            {  Use smCyrillic }
  108.                                                                 {  smMaldivian = 25: deleted, no code for Maldivian }
  109.     smLaotian                    = 22;                            {  Use smLao                                                             }
  110.     smAmharic                    = 28;                            {  Use smEthiopic or smGeez }
  111.     smSlavic                    = 29;                            {  Use smCentralEuroRoman }
  112.     smEastEurRoman                = 29;                            {  Use smCentralEuroRoman }
  113.     smSindhi                    = 31;                            {  Use smExtArabic }
  114.     smKlingon                    = 32;
  115.  
  116. {
  117.    Language codes:
  118.    These specify a language implemented using a particular Mac OS encoding.
  119.    Not all of these language codes are currently supported by Apple software.
  120. }
  121.     langEnglish                    = 0;                            {  smRoman script }
  122.     langFrench                    = 1;                            {  smRoman script }
  123.     langGerman                    = 2;                            {  smRoman script }
  124.     langItalian                    = 3;                            {  smRoman script }
  125.     langDutch                    = 4;                            {  smRoman script }
  126.     langSwedish                    = 5;                            {  smRoman script }
  127.     langSpanish                    = 6;                            {  smRoman script }
  128.     langDanish                    = 7;                            {  smRoman script }
  129.     langPortuguese                = 8;                            {  smRoman script }
  130.     langNorwegian                = 9;                            {  smRoman script }
  131.     langHebrew                    = 10;                            {  smHebrew script }
  132.     langJapanese                = 11;                            {  smJapanese script }
  133.     langArabic                    = 12;                            {  smArabic script }
  134.     langFinnish                    = 13;                            {  smRoman script }
  135.     langGreek                    = 14;                            {  Greek script using smRoman script code }
  136.     langIcelandic                = 15;                            {  modified smRoman/Icelandic script }
  137.     langMaltese                    = 16;                            {  Roman script }
  138.     langTurkish                    = 17;                            {  modified smRoman/Turkish script }
  139.     langCroatian                = 18;                            {  modified smRoman/Croatian script }
  140.     langTradChinese                = 19;                            {  Chinese (Mandarin) in traditional characters }
  141.     langUrdu                    = 20;                            {  smArabic script }
  142.     langHindi                    = 21;                            {  smDevanagari script }
  143.     langThai                    = 22;                            {  smThai script }
  144.     langKorean                    = 23;                            {  smKorean script }
  145.  
  146.     langLithuanian                = 24;                            {  smCentralEuroRoman script }
  147.     langPolish                    = 25;                            {  smCentralEuroRoman script }
  148.     langHungarian                = 26;                            {  smCentralEuroRoman script }
  149.     langEstonian                = 27;                            {  smCentralEuroRoman script }
  150.     langLatvian                    = 28;                            {  smCentralEuroRoman script }
  151.     langSami                    = 29;                            {  language of the Sami people of N. Scandinavia                         }
  152.     langFaroese                    = 30;                            {  modified smRoman/Icelandic script                                     }
  153.     langFarsi                    = 31;                            {  modified smArabic/Farsi script }
  154.     langPersian                    = 31;                            {  Synonym for langFarsi }
  155.     langRussian                    = 32;                            {  smCyrillic script }
  156.     langSimpChinese                = 33;                            {  Chinese (Mandarin) in simplified characters }
  157.     langFlemish                    = 34;                            {  smRoman script }
  158.     langIrishGaelic                = 35;                            {  smRoman or modified smRoman/Celtic script (without dot above)         }
  159.     langAlbanian                = 36;                            {  smRoman script }
  160.     langRomanian                = 37;                            {  modified smRoman/Romanian script }
  161.     langCzech                    = 38;                            {  smCentralEuroRoman script }
  162.     langSlovak                    = 39;                            {  smCentralEuroRoman script }
  163.     langSlovenian                = 40;                            {  modified smRoman/Croatian script }
  164.     langYiddish                    = 41;                            {  smHebrew script }
  165.     langSerbian                    = 42;                            {  smCyrillic script }
  166.     langMacedonian                = 43;                            {  smCyrillic script }
  167.     langBulgarian                = 44;                            {  smCyrillic script }
  168.     langUkrainian                = 45;                            {  modified smCyrillic/Ukrainian script }
  169.     langByelorussian            = 46;                            {  smCyrillic script }
  170.     langBelorussian                = 46;                            {  Synonym for langByelorussian                                             }
  171.  
  172.     langUzbek                    = 47;                            {  Cyrillic script }
  173.     langKazakh                    = 48;                            {  Cyrillic script }
  174.     langAzerbaijani                = 49;                            {  Azerbaijani in Cyrillic script }
  175.     langAzerbaijanAr            = 50;                            {  Azerbaijani in Arabic script }
  176.     langArmenian                = 51;                            {  smArmenian script }
  177.     langGeorgian                = 52;                            {  smGeorgian script }
  178.     langMoldavian                = 53;                            {  smCyrillic script }
  179.     langKirghiz                    = 54;                            {  Cyrillic script }
  180.     langTajiki                    = 55;                            {  Cyrillic script }
  181.     langTurkmen                    = 56;                            {  Cyrillic script }
  182.     langMongolian                = 57;                            {  Mongolian in smMongolian script }
  183.     langMongolianCyr            = 58;                            {  Mongolian in Cyrillic script }
  184.     langPashto                    = 59;                            {  Arabic script }
  185.     langKurdish                    = 60;                            {  smArabic script }
  186.     langKashmiri                = 61;                            {  Arabic script }
  187.     langSindhi                    = 62;                            {  Arabic script }
  188.     langTibetan                    = 63;                            {  smTibetan script }
  189.     langNepali                    = 64;                            {  smDevanagari script }
  190.     langSanskrit                = 65;                            {  smDevanagari script }
  191.     langMarathi                    = 66;                            {  smDevanagari script }
  192.     langBengali                    = 67;                            {  smBengali script }
  193.     langAssamese                = 68;                            {  smBengali script }
  194.     langGujarati                = 69;                            {  smGujarati script }
  195.     langPunjabi                    = 70;                            {  smGurmukhi script }
  196.  
  197.     langOriya                    = 71;                            {  smOriya script }
  198.     langMalayalam                = 72;                            {  smMalayalam script }
  199.     langKannada                    = 73;                            {  smKannada script }
  200.     langTamil                    = 74;                            {  smTamil script }
  201.     langTelugu                    = 75;                            {  smTelugu script }
  202.     langSinhalese                = 76;                            {  smSinhalese script }
  203.     langBurmese                    = 77;                            {  smBurmese script }
  204.     langKhmer                    = 78;                            {  smKhmer script }
  205.     langLao                        = 79;                            {  smLao script }
  206.     langVietnamese                = 80;                            {  smVietnamese script }
  207.     langIndonesian                = 81;                            {  smRoman script }
  208.     langTagalog                    = 82;                            {  Roman script }
  209.     langMalayRoman                = 83;                            {  Malay in smRoman script }
  210.     langMalayArabic                = 84;                            {  Malay in Arabic script }
  211.     langAmharic                    = 85;                            {  smEthiopic script }
  212.     langTigrinya                = 86;                            {  smEthiopic script }
  213.     langOromo                    = 87;                            {  smEthiopic script }
  214.     langSomali                    = 88;                            {  smRoman script }
  215.     langSwahili                    = 89;                            {  smRoman script }
  216.     langKinyarwanda                = 90;                            {  smRoman script }
  217.     langRuanda                    = 90;                            {  synonym for langKinyarwanda }
  218.     langRundi                    = 91;                            {  smRoman script }
  219.     langNyanja                    = 92;                            {  smRoman script }
  220.     langChewa                    = 92;                            {  synonym for langNyanja }
  221.     langMalagasy                = 93;                            {  smRoman script }
  222.     langEsperanto                = 94;                            {  Roman script }
  223.  
  224.     langWelsh                    = 128;                            {  modified smRoman/Celtic script }
  225.     langBasque                    = 129;                            {  smRoman script }
  226.     langCatalan                    = 130;                            {  smRoman script }
  227.     langLatin                    = 131;                            {  smRoman script }
  228.     langQuechua                    = 132;                            {  smRoman script }
  229.     langGuarani                    = 133;                            {  smRoman script }
  230.     langAymara                    = 134;                            {  smRoman script }
  231.     langTatar                    = 135;                            {  Cyrillic script }
  232.     langUighur                    = 136;                            {  Arabic script }
  233.     langDzongkha                = 137;                            {  (lang of Bhutan) smTibetan script }
  234.     langJavaneseRom                = 138;                            {  Javanese in smRoman script }
  235.     langSundaneseRom            = 139;                            {  Sundanese in smRoman script }
  236.     langGalician                = 140;                            {  smRoman script }
  237.     langAfrikaans                = 141;                            {  smRoman script                                                         }
  238.  
  239.     langBreton                    = 142;                            {  smRoman or modified smRoman/Celtic script                             }
  240.     langInuktitut                = 143;                            {  Inuit script using smEthiopic script code                             }
  241.     langScottishGaelic            = 144;                            {  smRoman or modified smRoman/Celtic script                             }
  242.     langManxGaelic                = 145;                            {  smRoman or modified smRoman/Celtic script                             }
  243.     langIrishGaelicScript        = 146;                            {  modified smRoman/Gaelic script (using dot above)                         }
  244.     langTongan                    = 147;                            {  smRoman script                                                         }
  245.     langGreekPoly                = 148;                            {  smGreek script                                                         }
  246.     langGreenlandic                = 149;                            {  smRoman script                                                         }
  247.  
  248.     langUnspecified                = 32767;                        {  Special code for use in resources (such as 'itlm')                     }
  249.  
  250. {
  251.    Obsolete language code names (kept for backward compatibility):
  252.    Misspelled, ambiguous, misleading, considered pejorative, archaic, etc.
  253. }
  254.     langPortugese                = 8;                            {  Use langPortuguese }
  255.     langMalta                    = 16;                            {  Use langMaltese }
  256.     langYugoslavian                = 18;                            {  (use langCroatian, langSerbian, etc.) }
  257.     langChinese                    = 19;                            {  (use langTradChinese or langSimpChinese) }
  258.     langLettish                    = 28;                            {  Use langLatvian                                                         }
  259.     langLapponian                = 29;                            {  Use langSami }
  260.     langLappish                    = 29;                            {  Use langSami }
  261.     langSaamisk                    = 29;                            {  Use langSami                                                             }
  262.     langFaeroese                = 30;                            {  Use langFaroese                                                         }
  263.     langIrish                    = 35;                            {  Use langIrishGaelic                                                     }
  264.     langGalla                    = 87;                            {  Use langOromo                                                         }
  265.     langAfricaans                = 141;                            {  Use langAfrikaans                                                     }
  266.  
  267. {
  268.    Region codes:
  269.    These typically specify a combination of a language code and a particular region.
  270.    Some of these numeric values are reserved just for extra resource IDs associated
  271.    with certain regions; these are not actual region codes, and are noted in the comments.
  272.    Not all of the region codes are currently supported by Apple software.
  273.    When relevant, the following list also provides:
  274.    - The Apple part number (P/N) code for software localized for the specified region.
  275.    - The two-letter ISO language and country codes (from ISO 639 and ISO 3166). The
  276.      language code (lowercase) is first, then '_', then the country code (uppercase).
  277. }
  278.  
  279.                                                                 {  P/N    ISO    codes    comments }
  280.     verUS                        = 0;                            {         en_US }
  281.     verFrance                    = 1;                            {  F    fr_FR }
  282.     verBritain                    = 2;                            {  B    en_GB }
  283.     verGermany                    = 3;                            {  D    de_DE }
  284.     verItaly                    = 4;                            {  T    it_IT }
  285.     verNetherlands                = 5;                            {  N    nl_NL }
  286.     verFlemish                    = 6;                            {  FN    nl_BE        Flemish (Dutch) for Belgium                             }
  287.     verSweden                    = 7;                            {  S    sv_SE }
  288.     verSpain                    = 8;                            {  E    es_ES        Spanish for Spain }
  289.     verDenmark                    = 9;                            {  DK    da_DK }
  290.     verPortugal                    = 10;                            {  PO    pt_PT        Portuguese for Portugal }
  291.     verFrCanada                    = 11;                            {  C    fr_CA        French for Canada }
  292.     verNorway                    = 12;                            {  H    no_NO        Bokmål }
  293.     verIsrael                    = 13;                            {  HB    iw_IL        Hebrew }
  294.     verJapan                    = 14;                            {  J    ja_JP }
  295.     verAustralia                = 15;                            {  X    en_AU        English for Australia }
  296.     verArabic                    = 16;                            {  AB    ar            Arabic for N Africa, Arabian peninsula, Levant }
  297.     verFinland                    = 17;                            {  K    fi_FI }
  298.     verFrSwiss                    = 18;                            {  SF    fr_CH        French Swiss }
  299.     verGrSwiss                    = 19;                            {  SD    de_CH        German Swiss }
  300.     verGreece                    = 20;                            {  GR    el_GR        Monotonic Greek (modern) }
  301.     verIceland                    = 21;                            {  IS    is_IS }
  302.     verMalta                    = 22;                            {  MA    mt_MT }
  303.     verCyprus                    = 23;                            {  CY      _CY        Greek or Turkish language? Checking... }
  304.     verTurkey                    = 24;                            {  TU    tr_TR }
  305.     verYugoCroatian                = 25;                            {  YU                Croatian for Yugoslavia; now use verCroatia (68) }
  306.  
  307.     verNetherlandsComma            = 26;                            {                     ID for KCHR resource - Dutch }
  308.     verBelgiumLuxPoint            = 27;                            {                     ID for KCHR resource - Belgium }
  309.     verCanadaComma                = 28;                            {                     ID for KCHR resource - Canadian ISO }
  310.     verCanadaPoint                = 29;                            {                     ID for KCHR resource - Canadian; now unused }
  311.     vervariantPortugal            = 30;                            {                     ID for resource; now unused }
  312.     vervariantNorway            = 31;                            {                     ID for resource; now unused }
  313.     vervariantDenmark            = 32;                            {                     ID for KCHR resource - Danish Mac Plus }
  314.  
  315.     verIndiaHindi                = 33;                            {         hi_IN        Hindi for India }
  316.     verPakistanUrdu                = 34;                            {  UR    ur_PK        Urdu for Pakistan                                     }
  317.     verTurkishModified            = 35;
  318.     verItalianSwiss                = 36;                            {  ST    it_CH        Italian Swiss }
  319.     verInternational            = 37;                            {  Z    en            English for international use                         }
  320.                                                                 {                     38 is unassigned }
  321.     verRomania                    = 39;                            {  RO    ro_RO }
  322.     verGreecePoly                = 40;                            {                     Polytonic Greek (classical)                             }
  323.     verLithuania                = 41;                            {  LT    lt_LT }
  324.     verPoland                    = 42;                            {  PL    pl_PL }
  325.     verHungary                    = 43;                            {  MG    hu_HU }
  326.     verEstonia                    = 44;                            {  EE    et_EE }
  327.     verLatvia                    = 45;                            {  LV    lv_LV }
  328.     verSami                        = 46;                            {         se                                                                 }
  329.     verFaroeIsl                    = 47;                            {  FA    fo_FO                                                             }
  330.     verIran                        = 48;                            {  PS    fa_IR        Persian/Farsi }
  331.     verRussia                    = 49;                            {  RS    ru_RU        Russian }
  332.     verIreland                    = 50;                            {  GA    ga_IE        Irish Gaelic for Ireland (without dot above)         }
  333.     verKorea                    = 51;                            {  KH    ko_KR }
  334.     verChina                    = 52;                            {  CH    zh_CN        Simplified Chinese }
  335.     verTaiwan                    = 53;                            {  TA    zh_TW        Traditional Chinese }
  336.     verThailand                    = 54;                            {  TH    th_TH }
  337.     verScriptGeneric            = 55;                            {  SS                Generic script system (no language or script)         }
  338.     verCzech                    = 56;                            {  CZ    cs_CZ }
  339.     verSlovak                    = 57;                            {  SL    sk_SK }
  340.     verFarEastGeneric            = 58;                            {  FE                Generic Far East system (no language or script)         }
  341.     verMagyar                    = 59;                            {                     Unused; see verHungary }
  342.     verBengali                    = 60;                            {         bn            Bangladesh or India }
  343.     verByeloRussian                = 61;                            {  BY    be_BY }
  344.  
  345.     verUkraine                    = 62;                            {  UA    uk_UA }
  346.                                                                 {                     63 is unassigned }
  347.     verGreeceAlt                = 64;                            {                     unused                                                 }
  348.     verSerbian                    = 65;                            {  SR    sr_YU, sh_YU                                                     }
  349.     verSlovenian                = 66;                            {  SV    sl_SI                                                             }
  350.     verMacedonian                = 67;                            {  MD    mk_MK                                                             }
  351.     verCroatia                    = 68;                            {  CR    hr_HR, sh_HR }
  352.                                                                 {                     69 is unassigned }
  353.                                                                 {                     70 is unassigned }
  354.     verBrazil                    = 71;                            {  BR    pt_BR        Portuguese for Brazil }
  355.     verBulgaria                    = 72;                            {  BG    bg_BG }
  356.     verCatalonia                = 73;                            {  CA    ca_ES        Catalan for Spain }
  357.     verMultilingual                = 74;                            {  ZM                (no language or script) }
  358.     verScottishGaelic            = 75;                            {  GD    gd }
  359.     verManxGaelic                = 76;                            {  GV    gv            Isle of Man }
  360.     verBreton                    = 77;                            {  BZ    br }
  361.     verNunavut                    = 78;                            {  IU    iu_CA        Inuktitut for Canada }
  362.     verWelsh                    = 79;                            {  CU    cy }
  363.                                                                 {                     80 is ID for KCHR resource - Canadian CSA }
  364.     verIrishGaelicScript        = 81;                            {  GS    ga_IE        Irish Gaelic for Ireland (using dot above) }
  365.     verEngCanada                = 82;                            {  V    en_CA        English for Canada }
  366.     verBhutan                    = 83;                            {  BH    dz_BT        Dzongkha for Bhutan }
  367.     verArmenian                    = 84;                            {  HY    hy_AM }
  368.     verGeorgian                    = 85;                            {  KR    ka_GE }
  369.     verSpLatinAmerica            = 86;                            {  LA    es            Spanish for Latin America }
  370.                                                                 {                     87 is ID for KCHR resource - Spanish ISO }
  371.     verTonga                    = 88;                            {  TS    to_TO }
  372.                                                                 {                     89 is ID for KCHR resource - Polish Modified }
  373.                                                                 {                     90 is ID for KCHR resource - Catalan ISO }
  374.     verFrenchUniversal            = 91;                            {         fr            French generic }
  375.     verAustria                    = 92;                            {  AU    de_AT        German for Austria }
  376.                                                                 {  Y                93 is unused alternate for verSpLatinAmerica }
  377.     verGujarati                    = 94;                            {         gu_IN }
  378.     verPunjabi                    = 95;                            {         pa            Pakistan or India }
  379.     verIndiaUrdu                = 96;                            {         ur_IN        Urdu for India }
  380.     verVietnam                    = 97;                            {         vi_VN }
  381.  
  382.     verFrBelgium                = 98;                            {  BF    fr_BE        French for Belgium                                     }
  383.     verUzbek                    = 99;                            {  BD    uz_UZ                                                             }
  384.     verSingapore                = 100;                            {  SG                                                                     }
  385.     verNynorsk                    = 101;                            {  NY      _NO        Norwegian Nynorsk                                     }
  386.     verAfrikaans                = 102;                            {  AK    af_ZA                                                             }
  387.     verEsperanto                = 103;                            {         eo                                                                 }
  388.     verMarathi                    = 104;                            {         mr_IN                                                             }
  389.     verTibetan                    = 105;                            {         bo                                                                 }
  390.     verNepal                    = 106;                            {         ne_NP                                                             }
  391.     verGreenland                = 107;                            {         kl                                                                 }
  392.  
  393. {
  394.    Other extra resource IDs assigned in the same number space:
  395.     179 is ID for KCHR & itl_ resources - Cornish
  396.     581 is ID for KCHR resource - Irish Gaelic script alternate
  397.     582 is ID for KCHR resource - Ogham
  398.     779 is ID for KCHR resource - Welsh alternate
  399.    1111 is ID for KCHR resource - French numeric
  400. }
  401.  
  402. {
  403.    Obsolete region code names (kept for backward compatibility):
  404.    Misspelled or alternate form, ambiguous, misleading, considered pejorative, archaic, etc.
  405. }
  406.     verFrBelgiumLux                = 6;                            {  Incorrect; 6 is Flemish, not French, for Belgium; use verFlemish         }
  407.     verBelgiumLux                = 6;                            {  Use verFlemish }
  408.     verArabia                    = 16;                            {  Use verArabic }
  409.     verYugoslavia                = 25;                            {  Use verYugoCroatian (same number, now unused), or newer verCroatia }
  410.     verIndia                    = 33;                            {  Use verIndiaHindi }
  411.     verPakistan                    = 34;                            {  Use verPakistanUrdu                                                     }
  412.     verRumania                    = 39;                            {  Alternate for verRomania                                                 }
  413.     verGreekAncient                = 40;                            {  Use verGreecePoly                                                     }
  414.     verLapland                    = 46;                            {  Use verSami                                                             }
  415.     verFaeroeIsl                = 47;                            {  Use verFaroeIsl                                                         }
  416.     verGenericFE                = 58;                            {  Use verFarEastGeneric                                                 }
  417.     verBelarus                    = 61;                            {  Alternate for verByelorussian                                         }
  418.     verUkrania                    = 62;                            {  Use verUkraine }
  419.     verAlternateGr                = 64;                            {  Use verGreeceAlt                                                         }
  420.     verSerbia                    = 65;                            {  Alternate for verSerbian                                                 }
  421.     verSlovenia                    = 66;                            {  Alternate for verSlovenian                                             }
  422.     verMacedonia                = 67;                            {  Alternate for verMacedonian                                             }
  423.     verBrittany                    = 77;                            {  Alternate for verBreton                                                 }
  424.     verWales                    = 79;                            {  Alternate for verWelsh                                                 }
  425.     verArmenia                    = 84;                            {  Alternate for verArmenian                                             }
  426.     verGeorgia                    = 85;                            {  Alternate for verGeorgian                                             }
  427.     verAustriaGerman            = 92;                            {  Use verAustria                                                         }
  428.     verTibet                    = 105;                            {  Use verTibetan                                                         }
  429.  
  430.     minCountry                    = 0;
  431.     maxCountry                    = 107;
  432.  
  433.                                                                 {  Calendar Codes  }
  434.     calGregorian                = 0;
  435.     calArabicCivil                = 1;
  436.     calArabicLunar                = 2;
  437.     calJapanese                    = 3;
  438.     calJewish                    = 4;
  439.     calCoptic                    = 5;
  440.     calPersian                    = 6;
  441.  
  442.                                                                 {  Integer Format Codes  }
  443.     intWestern                    = 0;
  444.     intArabic                    = 1;
  445.     intRoman                    = 2;
  446.     intJapanese                    = 3;
  447.     intEuropean                    = 4;
  448.     intOutputMask                = $8000;
  449.  
  450.                                                                 {  CharByte byte types  }
  451.     smSingleByte                = 0;
  452.     smFirstByte                    = -1;
  453.     smLastByte                    = 1;
  454.     smMiddleByte                = 2;
  455.  
  456.                                                                 {  CharType field masks  }
  457.     smcTypeMask                    = $000F;
  458.     smcReserved                    = $00F0;
  459.     smcClassMask                = $0F00;
  460.     smcOrientationMask            = $1000;                        { two-byte script glyph orientation }
  461.     smcRightMask                = $2000;
  462.     smcUpperMask                = $4000;
  463.     smcDoubleMask                = $8000;
  464.  
  465.                                                                 {  Basic CharType character types  }
  466.     smCharPunct                    = $0000;
  467.     smCharAscii                    = $0001;
  468.     smCharEuro                    = $0007;
  469.     smCharExtAscii                = $0007;                        {  More correct synonym for smCharEuro  }
  470.                                                                 {  Additional CharType character types for script systems  }
  471.     smCharKatakana                = $0002;                        { Japanese Katakana }
  472.     smCharHiragana                = $0003;                        { Japanese Hiragana }
  473.     smCharIdeographic            = $0004;                        { Hanzi, Kanji, Hanja }
  474.     smCharTwoByteGreek            = $0005;                        { 2-byte Greek in Far East systems }
  475.     smCharTwoByteRussian        = $0006;                        { 2-byte Cyrillic in Far East systems }
  476.     smCharBidirect                = $0008;                        { Arabic/Hebrew }
  477.     smCharContextualLR            = $0009;                        { Contextual left-right: Thai, Indic scripts }
  478.     smCharNonContextualLR        = $000A;                        { Non-contextual left-right: Cyrillic, Greek }
  479.     smCharHangul                = $000C;                        { Korean Hangul }
  480.     smCharJamo                    = $000D;                        { Korean Jamo }
  481.     smCharBopomofo                = $000E;                        { Chinese Bopomofo }
  482.     smCharGanaKana                = $000F;                        { Shared for Japanese Hiragana & Katakana }
  483.                                                                 {  old names for some of above, for backward compatibility  }
  484.     smCharFISKana                = $0002;                        { Katakana }
  485.     smCharFISGana                = $0003;                        { Hiragana }
  486.     smCharFISIdeo                = $0004;                        { Hanzi, Kanji, Hanja }
  487.  
  488.     smCharFISGreek                = $0005;                        { 2-byte Greek in Far East systems }
  489.     smCharFISRussian            = $0006;                        { 2-byte Cyrillic in Far East systems }
  490.                                                                 {  CharType classes for punctuation (smCharPunct)  }
  491.     smPunctNormal                = $0000;
  492.     smPunctNumber                = $0100;
  493.     smPunctSymbol                = $0200;
  494.     smPunctBlank                = $0300;                        {  Additional CharType classes for punctuation in two-byte systems  }
  495.     smPunctRepeat                = $0400;                        {  repeat marker  }
  496.     smPunctGraphic                = $0500;                        {  line graphics  }
  497.                                                                 {  CharType Katakana and Hiragana classes for two-byte systems  }
  498.     smKanaSmall                    = $0100;                        { small kana character }
  499.     smKanaHardOK                = $0200;                        { can have dakuten }
  500.     smKanaSoftOK                = $0300;                        { can have dakuten or han-dakuten }
  501.                                                                 {  CharType Ideographic classes for two-byte systems  }
  502.     smIdeographicLevel1            = $0000;                        { level 1 char }
  503.     smIdeographicLevel2            = $0100;                        { level 2 char }
  504.     smIdeographicUser            = $0200;                        { user char }
  505.                                                                 {  old names for above, for backward compatibility  }
  506.     smFISClassLvl1                = $0000;                        { level 1 char }
  507.     smFISClassLvl2                = $0100;                        { level 2 char }
  508.     smFISClassUser                = $0200;                        { user char }
  509.                                                                 {  CharType Jamo classes for Korean systems  }
  510.     smJamoJaeum                    = $0000;                        { simple consonant char }
  511.     smJamoBogJaeum                = $0100;                        { complex consonant char }
  512.     smJamoMoeum                    = $0200;                        { simple vowel char }
  513.     smJamoBogMoeum                = $0300;                        { complex vowel char }
  514.  
  515.                                                                 {  CharType glyph orientation for two-byte systems  }
  516.     smCharHorizontal            = $0000;                        {  horizontal character form, or for both  }
  517.     smCharVertical                = $1000;                        {  vertical character form  }
  518.                                                                 {  CharType directions  }
  519.     smCharLeft                    = $0000;
  520.     smCharRight                    = $2000;                        {  CharType case modifers  }
  521.     smCharLower                    = $0000;
  522.     smCharUpper                    = $4000;                        {  CharType character size modifiers (1 or multiple bytes).  }
  523.     smChar1byte                    = $0000;
  524.     smChar2byte                    = $8000;
  525.  
  526.                                                                 {  TransliterateText target types for Roman  }
  527.     smTransAscii                = 0;                            { convert to ASCII }
  528.     smTransNative                = 1;                            { convert to font script }
  529.     smTransCase                    = $FE;                            { convert case for all text }
  530.     smTransSystem                = $FF;                            { convert to system script }
  531.                                                                 {  TransliterateText target types for two-byte scripts  }
  532.     smTransAscii1                = 2;                            { 1-byte Roman }
  533.     smTransAscii2                = 3;                            { 2-byte Roman }
  534.     smTransKana1                = 4;                            { 1-byte Japanese Katakana }
  535.     smTransKana2                = 5;                            { 2-byte Japanese Katakana }
  536.  
  537.     smTransGana2                = 7;                            { 2-byte Japanese Hiragana (no 1-byte Hiragana) }
  538.     smTransHangul2                = 8;                            { 2-byte Korean Hangul }
  539.     smTransJamo2                = 9;                            { 2-byte Korean Jamo }
  540.     smTransBopomofo2            = 10;                            { 2-byte Chinese Bopomofo }
  541.                                                                 {  TransliterateText target modifiers  }
  542.     smTransLower                = $4000;                        { target becomes lowercase }
  543.     smTransUpper                = $8000;                        { target becomes uppercase }
  544.                                                                 {  TransliterateText resource format numbers  }
  545.     smTransRuleBaseFormat        = 1;                            { Rule based trsl resource format  }
  546.     smTransHangulFormat            = 2;                            { Table based Hangul trsl resource format }
  547.                                                                 {  TransliterateText property flags  }
  548.     smTransPreDoubleByting        = 1;                            { Convert all text to double byte before transliteration }
  549.     smTransPreLowerCasing        = 2;                            { Convert all text to lower case before transliteration }
  550.  
  551.                                                                 {  TransliterateText source mask - general  }
  552.     smMaskAll                    = $FFFFFFFF;                    { Convert all text }
  553.                                                                 {  TransliterateText source masks  }
  554.     smMaskAscii                    = $00000001;                    { 2^smTransAscii }
  555.     smMaskNative                = $00000002;                    { 2^smTransNative }
  556.                                                                 {  TransliterateText source masks for two-byte scripts  }
  557.     smMaskAscii1                = $00000004;                    { 2^smTransAscii1 }
  558.     smMaskAscii2                = $00000008;                    { 2^smTransAscii2 }
  559.     smMaskKana1                    = $00000010;                    { 2^smTransKana1 }
  560.     smMaskKana2                    = $00000020;                    { 2^smTransKana2 }
  561.     smMaskGana2                    = $00000080;                    { 2^smTransGana2 }
  562.     smMaskHangul2                = $00000100;                    { 2^smTransHangul2 }
  563.     smMaskJamo2                    = $00000200;                    { 2^smTransJamo2 }
  564.     smMaskBopomofo2                = $00000400;                    { 2^smTransBopomofo2 }
  565.  
  566.                                                                 {  Result values from GetScriptManagerVariable and SetScriptManagerVariable calls.  }
  567.     smNotInstalled                = 0;                            { routine not available in script }
  568.     smBadVerb                    = -1;                            { Bad verb passed to a routine }
  569.     smBadScript                    = -2;                            { Bad script code passed to a routine }
  570.  
  571.                                                                 {  Values for script redraw flag.  }
  572.     smRedrawChar                = 0;                            { Redraw character only }
  573.     smRedrawWord                = 1;                            { Redraw entire word (2-byte systems) }
  574.     smRedrawLine                = -1;                            { Redraw entire line (bidirectional systems) }
  575.  
  576.                                                                 {  GetScriptManagerVariable and SetScriptManagerVariable verbs  }
  577.     smVersion                    = 0;                            { Script Manager version number }
  578.     smMunged                    = 2;                            { Globals change count }
  579.     smEnabled                    = 4;                            { Count of enabled scripts, incl Roman }
  580.     smBidirect                    = 6;                            { At least one bidirectional script }
  581.     smFontForce                    = 8;                            { Force font flag }
  582.     smIntlForce                    = 10;                            { Force intl flag }
  583.     smForced                    = 12;                            { Script was forced to system script }
  584.     smDefault                    = 14;                            { Script was defaulted to Roman script }
  585.     smPrint                        = 16;                            { Printer action routine }
  586.     smSysScript                    = 18;                            { System script }
  587.     smLastScript                = 20;                            { Last keyboard script }
  588.     smKeyScript                    = 22;                            { Keyboard script }
  589.     smSysRef                    = 24;                            { System folder refNum }
  590.     smKeyCache                    = 26;                            { obsolete }
  591.     smKeySwap                    = 28;                            { Swapping table handle }
  592.     smGenFlags                    = 30;                            { General flags long }
  593.     smOverride                    = 32;                            { Script override flags }
  594.     smCharPortion                = 34;                            { Ch vs SpExtra proportion }
  595.                                                                 {  New for System 7.0:  }
  596.     smDoubleByte                = 36;                            { Flag for double-byte script installed }
  597.     smKCHRCache                    = 38;                            { Returns pointer to KCHR cache }
  598.     smRegionCode                = 40;                            { Returns current region code (verXxx) }
  599.     smKeyDisableState            = 42;                            { Returns current keyboard disable state }
  600.  
  601.                                                                 {  GetScriptVariable and SetScriptVariable verbs.  }
  602.                                                                 {  Note: Verbs private to script systems are negative, while  }
  603.                                                                 {  those general across script systems are non-negative.  }
  604.     smScriptVersion                = 0;                            { Script software version }
  605.     smScriptMunged                = 2;                            { Script entry changed count }
  606.     smScriptEnabled                = 4;                            { Script enabled flag }
  607.     smScriptRight                = 6;                            { Right to left flag }
  608.     smScriptJust                = 8;                            { Justification flag }
  609.     smScriptRedraw                = 10;                            { Word redraw flag }
  610.     smScriptSysFond                = 12;                            { Preferred system font }
  611.     smScriptAppFond                = 14;                            { Preferred Application font }
  612.     smScriptBundle                = 16;                            { Beginning of itlb verbs }
  613.     smScriptNumber                = 16;                            { Script itl0 id }
  614.     smScriptDate                = 18;                            { Script itl1 id }
  615.     smScriptSort                = 20;                            { Script itl2 id }
  616.     smScriptFlags                = 22;                            { flags word }
  617.     smScriptToken                = 24;                            { Script itl4 id }
  618.     smScriptEncoding            = 26;                            { id of optional itl5, if present }
  619.     smScriptLang                = 28;                            { Current language for script }
  620.  
  621.     smScriptNumDate                = 30;                            { Script Number/Date formats. }
  622.     smScriptKeys                = 32;                            { Script KCHR id }
  623.     smScriptIcon                = 34;                            { ID # of SICN or kcs#/kcs4/kcs8 suite }
  624.     smScriptPrint                = 36;                            { Script printer action routine }
  625.     smScriptTrap                = 38;                            { Trap entry pointer }
  626.     smScriptCreator                = 40;                            { Script file creator }
  627.     smScriptFile                = 42;                            { Script file name }
  628.     smScriptName                = 44;                            { Script name }
  629.                                                                 {  There is a hole here for old Kanji private verbs 46-76  }
  630.                                                                 {  New for System 7.0:  }
  631.     smScriptMonoFondSize        = 78;                            { default monospace FOND (hi) & size (lo) }
  632.     smScriptPrefFondSize        = 80;                            { preferred FOND (hi) & size (lo) }
  633.     smScriptSmallFondSize        = 82;                            { default small FOND (hi) & size (lo) }
  634.     smScriptSysFondSize            = 84;                            { default system FOND (hi) & size (lo) }
  635.     smScriptAppFondSize            = 86;                            { default app FOND (hi) & size (lo) }
  636.     smScriptHelpFondSize        = 88;                            { default Help Mgr FOND (hi) & size (lo) }
  637.     smScriptValidStyles            = 90;                            { mask of valid styles for script }
  638.     smScriptAliasStyle            = 92;                            { style (set) to use for aliases }
  639.  
  640. { special negative verbs for Get/SetScriptVariable that were associated with WorldScriptI }
  641. { move them here to be public }
  642.                                                                 {  WorldScript private verbs  }
  643.     smLayoutCache                = -309;                            {  HiWrd(param) is # entries, LoWrd is max input length }
  644.     smOldVerbSupport            = -311;                            {  param is added to old verbs to map to WSI verb }
  645.     smSetKashidas                = -291;                            {  param is ON or OFF, old verb = -36 }
  646.     smSetKashProp                = -287;                            {  param is kashida proportion, old verb = -32 }
  647.     smScriptSysBase                = -281;                            {  param is associated font to use w/ system font (old verb = -26) }
  648.     smScriptAppBase                = -283;                            {  param is associated font to use w/ app font (old verb = -28) }
  649.     smScriptFntBase                = -285;                            {  param is associated font to use w/ all other fonts (old verb = -30) }
  650.     smScriptLigatures            = -263;                            {  old verb = -8 }
  651.     smScriptNumbers                = -267;                            {  old verb = -12 }
  652.  
  653.                                                                 {  Special script code values for International Utilities  }
  654.     iuSystemScript                = -1;                            {  <obsolete>  system script  }
  655.     iuCurrentScript                = -2;                            {  <obsolete>  current script (for font of grafPort)  }
  656.  
  657.                                                                 {  Negative verbs for KeyScript  }
  658.     smKeyNextScript                = -1;                            {  Switch to next available script  }
  659.     smKeySysScript                = -2;                            {  Switch to the system script  }
  660.     smKeySwapScript                = -3;                            {  Switch to previously-used script  }
  661.                                                                 {  New for System 7.0:  }
  662.     smKeyNextKybd                = -4;                            {  Switch to next keyboard in current keyscript  }
  663.     smKeySwapKybd                = -5;                            {  Switch to previously-used keyboard in current keyscript  }
  664.     smKeyDisableKybds            = -6;                            {  Disable keyboards not in system or Roman script  }
  665.     smKeyEnableKybds            = -7;                            {  Re-enable keyboards for all enabled scripts  }
  666.     smKeyToggleInline            = -8;                            {  Toggle inline input for current keyscript  }
  667.     smKeyToggleDirection        = -9;                            {  Toggle default line direction (TESysJust)  }
  668.     smKeyNextInputMethod        = -10;                            {  Switch to next input method in current keyscript  }
  669.     smKeySwapInputMethod        = -11;                            {  Switch to last-used input method in current keyscript  }
  670.     smKeyDisableKybdSwitch        = -12;                            {  Disable switching from the current keyboard  }
  671.     smKeySetDirLeftRight        = -15;                            {  Set default line dir to left-right, align left  }
  672.     smKeySetDirRightLeft        = -16;                            {  Set default line dir to right-left, align right  }
  673.     smKeyRoman                    = -17;                            {  Set keyscript to Roman. Does nothing if Roman-only system, unlike KeyScript(smRoman) which forces an update to current default Roman keyboard  }
  674.  
  675. { Optional font and keyboard script synchronization }
  676.                                                                 {  One more flag in the smGenFlags long.  }
  677.     smfDisableKeyScriptSync        = 27;                            { Disable font and keyboard script synchronization }
  678.  
  679.                                                                 {  We should define masks, too.  }
  680.     smfDisableKeyScriptSyncMask    = $08000000;                    { Disable font and keyboard script synchronization mask }
  681.  
  682.                                                                 {  Force keyboard script switching flag and mask for zero and positive KeyScript verbs  }
  683.     smKeyForceKeyScriptBit        = 7;                            {  Force keyboard script switching flag  }
  684.     smKeyForceKeyScriptMask        = $80;                            {  its mask  }
  685.  
  686.                                                                 {  Bits in the smScriptFlags word  }
  687.                                                                 {   (bits above 8 are non-static)  }
  688.     smsfIntellCP                = 0;                            { Script has intelligent cut & paste }
  689.     smsfSingByte                = 1;                            { Script has only single bytes }
  690.     smsfNatCase                    = 2;                            { Native chars have upper & lower case }
  691.     smsfContext                    = 3;                            { Script is contextual }
  692.     smsfNoForceFont                = 4;                            { Script will not force characters }
  693.     smsfB0Digits                = 5;                            { Script has alternate digits at B0-B9 }
  694.     smsfAutoInit                = 6;                            { Auto initialize the script }
  695.     smsfUnivExt                    = 7;                            { Script is handled by universal extension }
  696.     smsfSynchUnstyledTE            = 8;                            { Script synchronizes for unstyled TE }
  697.     smsfForms                    = 13;                            { Uses contextual forms for letters }
  698.     smsfLigatures                = 14;                            { Uses contextual ligatures }
  699.     smsfReverse                    = 15;                            { Reverses native text, right-left }
  700.                                                                 {  Bits in the smGenFlags long.  }
  701.                                                                 {  First (high-order) byte is set from itlc flags byte.  }
  702.     smfShowIcon                    = 31;                            { Show icon even if only one script }
  703.     smfDualCaret                = 30;                            { Use dual caret for mixed direction text }
  704.     smfNameTagEnab                = 29;                            { Reserved for internal use }
  705.     smfUseAssocFontInfo            = 28;                            { Use the associated font info for FontMetrics calls <48> }
  706.  
  707.                                                                 {  Roman script constants  }
  708.                                                                 {  The following are here for backward compatibility, but should not be used.  }
  709.                                                                 {  This information should be obtained using GetScript.  }
  710.     romanSysFond                = $3FFF;                        { system font id number }
  711.     romanAppFond                = 3;                            { application font id number }
  712.     romanFlags                    = $0007;                        { roman settings }
  713.                                                                 {  Script Manager font equates.  }
  714.     smFondStart                    = $4000;                        { start from 16K }
  715.     smFondEnd                    = $C000;                        { past end of range at 48K }
  716.                                                                 {  Miscellaneous font equates.  }
  717.     smUprHalfCharSet            = $80;                            { first char code in top half of std char set }
  718.  
  719.                                                                 {  Character Set Extensions  }
  720.     diaeresisUprY                = $D9;
  721.     fraction                    = $DA;
  722.     intlCurrency                = $DB;
  723.     leftSingGuillemet            = $DC;
  724.     rightSingGuillemet            = $DD;
  725.     fiLigature                    = $DE;
  726.     flLigature                    = $DF;
  727.     dblDagger                    = $E0;
  728.     centeredDot                    = $E1;
  729.     baseSingQuote                = $E2;
  730.     baseDblQuote                = $E3;
  731.     perThousand                    = $E4;
  732.     circumflexUprA                = $E5;
  733.     circumflexUprE                = $E6;
  734.     acuteUprA                    = $E7;
  735.     diaeresisUprE                = $E8;
  736.     graveUprE                    = $E9;
  737.     acuteUprI                    = $EA;
  738.     circumflexUprI                = $EB;
  739.     diaeresisUprI                = $EC;
  740.     graveUprI                    = $ED;
  741.     acuteUprO                    = $EE;
  742.     circumflexUprO                = $EF;
  743.     appleLogo                    = $F0;
  744.     graveUprO                    = $F1;
  745.     acuteUprU                    = $F2;
  746.     circumflexUprU                = $F3;
  747.     graveUprU                    = $F4;
  748.     dotlessLwrI                    = $F5;
  749.     circumflex                    = $F6;
  750.     tilde                        = $F7;
  751.     macron                        = $F8;
  752.     breveMark                    = $F9;
  753.     overDot                        = $FA;
  754.     ringMark                    = $FB;
  755.     cedilla                        = $FC;
  756.     doubleAcute                    = $FD;
  757.     ogonek                        = $FE;
  758.     hachek                        = $FF;
  759.  
  760.                                                                 {  ScriptTokenType values  }
  761.     tokenIntl                    = 4;                            { the itl resource number of the tokenizer }
  762.     tokenEmpty                    = -1;                            { used internally as an empty flag }
  763.  
  764.     tokenUnknown                = 0;                            { chars that do not match a defined token type }
  765.     tokenWhite                    = 1;                            { white space }
  766.     tokenLeftLit                = 2;                            { literal begin }
  767.     tokenRightLit                = 3;                            { literal end }
  768.     tokenAlpha                    = 4;                            { alphabetic }
  769.     tokenNumeric                = 5;                            { numeric }
  770.     tokenNewLine                = 6;                            { new line }
  771.     tokenLeftComment            = 7;                            { open comment }
  772.     tokenRightComment            = 8;                            { close comment }
  773.     tokenLiteral                = 9;                            { literal }
  774.     tokenEscape                    = 10;                            { character escape (e.g. '\' in "\n", "\t") }
  775.     tokenAltNum                    = 11;                            { alternate number (e.g. $B0-B9 in Arabic,Hebrew) }
  776.     tokenRealNum                = 12;                            { real number }
  777.     tokenAltReal                = 13;                            { alternate real number }
  778.     tokenReserve1                = 14;                            { reserved }
  779.     tokenReserve2                = 15;                            { reserved }
  780.     tokenLeftParen                = 16;                            { open parenthesis }
  781.     tokenRightParen                = 17;                            { close parenthesis }
  782.     tokenLeftBracket            = 18;                            { open square bracket }
  783.     tokenRightBracket            = 19;                            { close square bracket }
  784.  
  785.     tokenLeftCurly                = 20;                            { open curly bracket }
  786.     tokenRightCurly                = 21;                            { close curly bracket }
  787.     tokenLeftEnclose            = 22;                            { open guillemet }
  788.     tokenRightEnclose            = 23;                            { close guillemet }
  789.     tokenPlus                    = 24;
  790.     tokenMinus                    = 25;
  791.     tokenAsterisk                = 26;                            { times/multiply }
  792.     tokenDivide                    = 27;
  793.     tokenPlusMinus                = 28;                            { plus or minus symbol }
  794.     tokenSlash                    = 29;
  795.     tokenBackSlash                = 30;
  796.     tokenLess                    = 31;                            { less than symbol }
  797.     tokenGreat                    = 32;                            { greater than symbol }
  798.     tokenEqual                    = 33;
  799.     tokenLessEqual2                = 34;                            { less than or equal, 2 characters (e.g. <=) }
  800.     tokenLessEqual1                = 35;                            { less than or equal, 1 character }
  801.     tokenGreatEqual2            = 36;                            { greater than or equal, 2 characters (e.g. >=) }
  802.     tokenGreatEqual1            = 37;                            { greater than or equal, 1 character }
  803.     token2Equal                    = 38;                            { double equal (e.g. ==) }
  804.     tokenColonEqual                = 39;                            { colon equal }
  805.  
  806.     tokenNotEqual                = 40;                            { not equal, 1 character }
  807.     tokenLessGreat                = 41;                            { less/greater, Pascal not equal (e.g. <>) }
  808.     tokenExclamEqual            = 42;                            { exclamation equal, C not equal (e.g. !=) }
  809.     tokenExclam                    = 43;                            { exclamation point }
  810.     tokenTilde                    = 44;                            { centered tilde }
  811.     tokenComma                    = 45;
  812.     tokenPeriod                    = 46;
  813.     tokenLeft2Quote                = 47;                            { open double quote }
  814.     tokenRight2Quote            = 48;                            { close double quote }
  815.     tokenLeft1Quote                = 49;                            { open single quote }
  816.     tokenRight1Quote            = 50;                            { close single quote }
  817.     token2Quote                    = 51;                            { double quote }
  818.     token1Quote                    = 52;                            { single quote }
  819.     tokenSemicolon                = 53;
  820.     tokenPercent                = 54;
  821.     tokenCaret                    = 55;
  822.     tokenUnderline                = 56;
  823.     tokenAmpersand                = 57;
  824.     tokenAtSign                    = 58;
  825.     tokenBar                    = 59;                            { vertical bar }
  826.  
  827.     tokenQuestion                = 60;
  828.     tokenPi                        = 61;                            { lower-case pi }
  829.     tokenRoot                    = 62;                            { square root symbol }
  830.     tokenSigma                    = 63;                            { capital sigma }
  831.     tokenIntegral                = 64;                            { integral sign }
  832.     tokenMicro                    = 65;
  833.     tokenCapPi                    = 66;                            { capital pi }
  834.     tokenInfinity                = 67;
  835.     tokenColon                    = 68;
  836.     tokenHash                    = 69;                            { e.g. # }
  837.     tokenDollar                    = 70;
  838.     tokenNoBreakSpace            = 71;                            { non-breaking space }
  839.     tokenFraction                = 72;
  840.     tokenIntlCurrency            = 73;
  841.     tokenLeftSingGuillemet        = 74;
  842.     tokenRightSingGuillemet        = 75;
  843.     tokenPerThousand            = 76;
  844.     tokenEllipsis                = 77;
  845.     tokenCenterDot                = 78;
  846.     tokenNil                    = 127;
  847.  
  848.     delimPad                    = -2;                            {  obsolete, misspelled token names kept for backward compatibility  }
  849.     tokenTilda                    = 44;
  850.     tokenCarat                    = 55;
  851.  
  852.                                                                 {  Table selectors for GetItlTable  }
  853.     smWordSelectTable            = 0;                            {  get word select break table from 'itl2'  }
  854.     smWordWrapTable                = 1;                            {  get word wrap break table from 'itl2'  }
  855.     smNumberPartsTable            = 2;                            {  get default number parts table from 'itl4'  }
  856.     smUnTokenTable                = 3;                            {  get unToken table from 'itl4'  }
  857.     smWhiteSpaceList            = 4;                            {  get white space list from 'itl4'  }
  858.     iuWordSelectTable            = 0;                            {  <obsolete>  get word select break table from 'itl2'  }
  859.     iuWordWrapTable                = 1;                            {  <obsolete>  get word wrap break table from 'itl2'  }
  860.     iuNumberPartsTable            = 2;                            {  <obsolete>  get default number parts table from 'itl4'  }
  861.     iuUnTokenTable                = 3;                            {  <obsolete>  get unToken table from 'itl4'  }
  862.     iuWhiteSpaceList            = 4;                            {  <obsolete>  get white space list from 'itl4'  }
  863.  
  864. { end of stuff moved from Packages.h }
  865.     tokenOK                        = 0;                            {  TokenResults  }
  866.     tokenOverflow                = 1;                            {  TokenResults  }
  867.     stringOverflow                = 2;                            {  TokenResults  }
  868.     badDelim                    = 3;                            {  TokenResults  }
  869.     badEnding                    = 4;                            {  TokenResults  }
  870.     crash                        = 5;                            {  TokenResults  }
  871.  
  872.  
  873. TYPE
  874.     TokenResults                        = SInt8;
  875.     CharByteTable                        = PACKED ARRAY [0..255] OF CHAR;
  876. {  "TokenType" was renamed to "ScriptTokenType" because of a name collision in QuickTime 3.0 on other OS's }
  877.     ScriptTokenType                        = INTEGER;
  878. {$IFC TARGET_OS_MAC }
  879.     TokenType                            = ScriptTokenType;
  880. {$ENDC}  {TARGET_OS_MAC}
  881.  
  882.     DelimType                            = ARRAY [0..1] OF ScriptTokenType;
  883.     CommentType                            = ARRAY [0..3] OF ScriptTokenType;
  884.     TokenRecPtr = ^TokenRec;
  885.     TokenRec = RECORD
  886.         theToken:                ScriptTokenType;
  887.         position:                Ptr;                                    { pointer into original source }
  888.         length:                    LONGINT;                                { length of text in original source }
  889.         stringPosition:            StringPtr;                                { Pascal/C string copy of identifier }
  890.     END;
  891.  
  892.     TokenBlockPtr = ^TokenBlock;
  893.     TokenBlock = RECORD
  894.         source:                    Ptr;                                    { pointer to stream of characters }
  895.         sourceLength:            LONGINT;                                { length of source stream }
  896.         tokenList:                Ptr;                                    { pointer to array of tokens }
  897.         tokenLength:            LONGINT;                                { maximum length of TokenList }
  898.         tokenCount:                LONGINT;                                { number tokens generated by tokenizer }
  899.         stringList:                Ptr;                                    { pointer to stream of identifiers }
  900.         stringLength:            LONGINT;                                { length of string list }
  901.         stringCount:            LONGINT;                                { number of bytes currently used }
  902.         doString:                BOOLEAN;                                { make strings & put into StringList }
  903.         doAppend:                BOOLEAN;                                { append to TokenList rather than replace }
  904.         doAlphanumeric:            BOOLEAN;                                { identifiers may include numeric }
  905.         doNest:                    BOOLEAN;                                { do comments nest? }
  906.         leftDelims:                ARRAY [0..1] OF ScriptTokenType;
  907.         rightDelims:            ARRAY [0..1] OF ScriptTokenType;
  908.         leftComment:            ARRAY [0..3] OF ScriptTokenType;
  909.         rightComment:            ARRAY [0..3] OF ScriptTokenType;
  910.         escapeCode:                ScriptTokenType;                        { escape symbol code }
  911.         decimalCode:            ScriptTokenType;
  912.         itlResource:            Handle;                                    { handle to itl4 resource of current script }
  913.         reserved:                ARRAY [0..7] OF LONGINT;                { must be zero! }
  914.     END;
  915.  
  916. FUNCTION GetSysDirection: INTEGER;
  917.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  918.     INLINE $3EB8, $0BAC;
  919.     {$ENDC}
  920. PROCEDURE SetSysDirection(value: INTEGER);
  921.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  922.     INLINE $31DF, $0BAC;
  923.     {$ENDC}
  924. FUNCTION FontScript: INTEGER;
  925.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  926.     INLINE $2F3C, $8200, $0000, $A8B5;
  927.     {$ENDC}
  928. FUNCTION IntlScript: INTEGER;
  929.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  930.     INLINE $2F3C, $8200, $0002, $A8B5;
  931.     {$ENDC}
  932. PROCEDURE KeyScript(code: INTEGER);
  933.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  934.     INLINE $2F3C, $8002, $0004, $A8B5;
  935.     {$ENDC}
  936. FUNCTION IsCmdChar({CONST}VAR event: EventRecord; test: INTEGER): BOOLEAN;
  937.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  938.     INLINE $2F3C, $8206, $FFD0, $A8B5;
  939.     {$ENDC}
  940. FUNCTION FontToScript(fontNumber: INTEGER): INTEGER;
  941.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  942.     INLINE $2F3C, $8202, $0006, $A8B5;
  943.     {$ENDC}
  944. FUNCTION GetScriptManagerVariable(selector: INTEGER): LONGINT;
  945.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  946.     INLINE $2F3C, $8402, $0008, $A8B5;
  947.     {$ENDC}
  948. FUNCTION SetScriptManagerVariable(selector: INTEGER; param: LONGINT): OSErr;
  949.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  950.     INLINE $2F3C, $8206, $000A, $A8B5;
  951.     {$ENDC}
  952. FUNCTION GetScriptVariable(script: INTEGER; selector: INTEGER): LONGINT;
  953.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  954.     INLINE $2F3C, $8404, $000C, $A8B5;
  955.     {$ENDC}
  956. FUNCTION SetScriptVariable(script: INTEGER; selector: INTEGER; param: LONGINT): OSErr;
  957.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  958.     INLINE $2F3C, $8208, $000E, $A8B5;
  959.     {$ENDC}
  960. FUNCTION CharacterByteType(textBuf: Ptr; textOffset: INTEGER; script: ScriptCode): INTEGER;
  961.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  962.     INLINE $2F3C, $C206, $0010, $A8B5;
  963.     {$ENDC}
  964. FUNCTION CharacterType(textBuf: Ptr; textOffset: INTEGER; script: ScriptCode): INTEGER;
  965.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  966.     INLINE $2F3C, $C206, $0012, $A8B5;
  967.     {$ENDC}
  968. FUNCTION TransliterateText(srcHandle: Handle; dstHandle: Handle; target: INTEGER; srcMask: LONGINT; script: ScriptCode): OSErr;
  969.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  970.     INLINE $2F3C, $C20E, $0018, $A8B5;
  971.     {$ENDC}
  972. FUNCTION FillParseTable(VAR table: CharByteTable; script: ScriptCode): BOOLEAN;
  973.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  974.     INLINE $2F3C, $C204, $0022, $A8B5;
  975.     {$ENDC}
  976. FUNCTION GetIntlResource(theID: INTEGER): Handle;
  977.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  978.     INLINE $3F3C, $0006, $A9ED;
  979.     {$ENDC}
  980. PROCEDURE ClearIntlResourceCache;
  981.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  982.     INLINE $3F3C, $0018, $A9ED;
  983.     {$ENDC}
  984. PROCEDURE GetIntlResourceTable(script: ScriptCode; tableCode: INTEGER; VAR itlHandle: Handle; VAR offset: LONGINT; VAR length: LONGINT);
  985.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  986.     INLINE $3F3C, $0024, $A9ED;
  987.     {$ENDC}
  988. FUNCTION GetScriptUtilityAddress(selector: INTEGER; Before: BOOLEAN; script: ScriptCode): UniversalProcPtr;
  989.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  990.     INLINE $2F3C, $C404, $0038, $A8B5;
  991.     {$ENDC}
  992. PROCEDURE SetScriptUtilityAddress(selector: INTEGER; Before: BOOLEAN; routineAddr: UniversalProcPtr; script: ScriptCode);
  993.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  994.     INLINE $2F3C, $C008, $003A, $A8B5;
  995.     {$ENDC}
  996. FUNCTION GetScriptQDPatchAddress(trapNum: INTEGER; Before: BOOLEAN; forPrinting: BOOLEAN; script: ScriptCode): UniversalProcPtr;
  997.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  998.     INLINE $2F3C, $C406, $003C, $A8B5;
  999.     {$ENDC}
  1000. PROCEDURE SetScriptQDPatchAddress(trapNum: INTEGER; Before: BOOLEAN; forPrinting: BOOLEAN; routineAddr: UniversalProcPtr; script: ScriptCode);
  1001.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1002.     INLINE $2F3C, $C00A, $003E, $A8B5;
  1003.     {$ENDC}
  1004. PROCEDURE SetIntlResource(refNum: INTEGER; theID: INTEGER; intlHandle: Handle);
  1005.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1006.     INLINE $3F3C, $0008, $A9ED;
  1007.     {$ENDC}
  1008. FUNCTION CharByte(textBuf: Ptr; textOffset: INTEGER): INTEGER;
  1009.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1010.     INLINE $2F3C, $8206, $0010, $A8B5;
  1011.     {$ENDC}
  1012. FUNCTION CharType(textBuf: Ptr; textOffset: INTEGER): INTEGER;
  1013.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1014.     INLINE $2F3C, $8206, $0012, $A8B5;
  1015.     {$ENDC}
  1016. FUNCTION Transliterate(srcHandle: Handle; dstHandle: Handle; target: INTEGER; srcMask: LONGINT): OSErr;
  1017.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1018.     INLINE $2F3C, $820E, $0018, $A8B5;
  1019.     {$ENDC}
  1020. FUNCTION ParseTable(VAR table: CharByteTable): BOOLEAN;
  1021.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1022.     INLINE $2F3C, $8204, $0022, $A8B5;
  1023.     {$ENDC}
  1024. FUNCTION IntlTokenize(tokenParam: TokenBlockPtr): TokenResults;
  1025.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1026.     INLINE $2F3C, $8204, $FFFA, $A8B5;
  1027.     {$ENDC}
  1028. {$IFC OLDROUTINENAMES }
  1029. PROCEDURE SetSysJust(newDirection: INTEGER);
  1030.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1031.     INLINE $31DF, $0BAC;
  1032.     {$ENDC}
  1033. FUNCTION GetSysJust: INTEGER;
  1034.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1035.     INLINE $3EB8, $0BAC;
  1036.     {$ENDC}
  1037. FUNCTION Font2Script(fontNumber: INTEGER): INTEGER;
  1038.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1039.     INLINE $2F3C, $8202, $0006, $A8B5;
  1040.     {$ENDC}
  1041. FUNCTION GetEnvirons(selector: INTEGER): LONGINT;
  1042.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1043.     INLINE $2F3C, $8402, $0008, $A8B5;
  1044.     {$ENDC}
  1045. FUNCTION SetEnvirons(selector: INTEGER; param: LONGINT): OSErr;
  1046.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1047.     INLINE $2F3C, $8206, $000A, $A8B5;
  1048.     {$ENDC}
  1049. FUNCTION GetScript(script: INTEGER; verb: INTEGER): LONGINT;
  1050.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1051.     INLINE $2F3C, $8404, $000C, $A8B5;
  1052.     {$ENDC}
  1053. FUNCTION SetScript(script: INTEGER; verb: INTEGER; param: LONGINT): OSErr;
  1054.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1055.     INLINE $2F3C, $8208, $000E, $A8B5;
  1056.     {$ENDC}
  1057. FUNCTION IUGetIntl(theID: INTEGER): Handle;
  1058.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1059.     INLINE $3F3C, $0006, $A9ED;
  1060.     {$ENDC}
  1061. PROCEDURE IUSetIntl(refNum: INTEGER; theID: INTEGER; intlHandle: Handle);
  1062.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1063.     INLINE $3F3C, $0008, $A9ED;
  1064.     {$ENDC}
  1065. PROCEDURE IUClearCache;
  1066.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1067.     INLINE $3F3C, $0018, $A9ED;
  1068.     {$ENDC}
  1069. PROCEDURE IUGetItlTable(script: ScriptCode; tableCode: INTEGER; VAR itlHandle: Handle; VAR offset: LONGINT; VAR length: LONGINT);
  1070.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1071.     INLINE $3F3C, $0024, $A9ED;
  1072.     {$ENDC}
  1073. {$ENDC}  {OLDROUTINENAMES}
  1074.  
  1075.  
  1076.  
  1077. {$ALIGN RESET}
  1078. {$POP}
  1079.  
  1080. {$SETC UsingIncludes := ScriptIncludes}
  1081.  
  1082. {$ENDC} {__SCRIPT__}
  1083.  
  1084. {$IFC NOT UsingIncludes}
  1085.  END.
  1086. {$ENDC}
  1087.